unit uUsiXML360DelphiDesktopInterfaceRenderer;

interface

uses
  Xdom_4_1;

type

  TUsiXML360DelphiDesktopInterfaceRenderer = class

  public
    procedure renderInterface(FilePath : String);
  private
    procedure recurseElements(Element : TDomElement);

  end;

implementation

{ TUsiXML360DelphiDesktopInterfaceRenderer }
procedure TUsiXML360DelphiDesktopInterfaceRenderer.recurseElements(
  Element: TDomElement);
begin

end;

procedure TUsiXML360DelphiDesktopInterfaceRenderer.renderInterface(
  FilePath: String);
var
  XmlToDomParser1 : TXmlToDomParser;
  DomImplementation1 : TDomImplementation;
  Doc: TDOMDocument;
  List: TDomNodeList;
  Len, i: Integer;
  S: string;
begin

   WriteLn('Teste');

  XmlToDomParser1 := TXmlToDomParser.Create(nil);
  XmlToDomParser1.ParseFile(FilePath, True);

  DomImplementation1 := XmlToDomParser1.DOMImpl;
  Doc := (DomImplementation1.Documents.Item(0) as TdomDocument);
  Len := DomImplementation1.Documents.Length;

  for i := 0 to Len - 1 do begin
    S := DomImplementation1.Documents.Item(i).ChildNodes.Item(i).ExpandedName;
    WriteLn(S);
  end;

end;

end.
